function [indice_prueba,indice_entrenamiento] = estratifica(d,N,r,v)
da = sort(d);
numeroClases=da(end);

for i=1:numeroClases
indices = find(d==i);
cantidad_class(i) = length(indices);
cantidad_c(i) = round(cantidad_class(i)/N*r);
end
%%
idx_p = [];
idx_e = [];
for i=1:numeroClases
    indices = find(d==i);
    cantidad_class = length(indices);
    gr = randperm(cantidad_class);
    for j=1:v
        gr_i = indices(gr);
        ip = gr_i(1:cantidad_c(i));
        ie = gr_i(cantidad_c(i)+1:length(gr_i));
        if i==1
            indice_prueba(1:length(ip),j) = ip;
            indice_entrenamiento(1:length(ie),j) = ie;
        else
            indice_prueba(idx_p+1:idx_p+length(ip),j) = ip;
            indice_entrenamiento(idx_e+1:idx_e+length(ie),j) = ie;
        end
        gr = (circshift(gr',-cantidad_c(i)))';
    end
    idx_p = size(indice_prueba,1);
    idx_e = size(indice_entrenamiento,1);
end